5 POKE53280,11:POKE53281,.
10 IF(PEEK(679)<>206)THENLOAD"INTER MELODY.ML1",8,1
15 IF(PEEK(36818)<>120)THENLOAD"INTER MELODY.ML2",8,1
16 GOSUB9000:CLR:GOTO110
20 POKE198,.
23 GETA$:IFA$=""THEN23
25 RETURN
110 POKE55,208:POKE56,143:CLR
120 DIMNT$(12),FR(12):S=54272:BASE=36864:T=1:FORL=STOS+24:POKEL,0:NEXT
125 PRINT"[147]              [158][201]NTER [205]ELODY"
126 PRINT"[129]                  BY"
127 PRINT"            [200][197][206][210][201][203] [205][193][210][203][193][210][201][193][206]"
128 PRINT"[154]            [208]RESS [209] [154]TO [209]UIT."
130 PRINT"[158][197]NTER TWO VOICE NUMBERS. [1-3]":PRINT"->[153]     [157][157][157][157][157]";
132 GOSUB20:IF(A$<"1")OR(A$>"3")AND(A$<>"Q")AND(A$<>"[209]")THEN132
133 IFA$="Q"ORA$="[209]"THENGOSUB50000:GOTO130
134 A=VAL(A$):PRINTA$" ->[153]";
135 GOSUB20:IFA$="Q"ORA$="[209]"THENGOSUB50000:GOTO130
136 IF(A$<"1")OR(A$>"3")OR(VAL(A$)=A)THEN135
138 B=VAL(A$):PRINTA$
139 A=(A-1)*7:B=(B-1)*7
140 AD(1)=0:SR(1)=240:AD(2)=9:SR(2)=0:PH(1)=0:PL(1)=0:PH(2)=0:PL(2)=0
150 WA=16:WB=32:TEMPO=15:REM WAVEFORM (16,32,64,128) & BEAT (60TH OF SEC)
167 PRINT"[147]            [208]ROCESSING [206]OTES"
170 FORI=1TO12:READNT$(I),FR(I):NEXT
180 C=0:OC=4:REM START AT 4TH OCTAVE
190 READC$:IFC$="END"THEN310
200 IFC$="RES"THENHF%=0:LF%=0:GOTO280
210 IFC$="+"THENOC=OC+1:GOTO190
220 IFC$="-"THENOC=OC-1:GOTO190
230 IFVAL(C$)>0THEN290
240 FORI=1TO12
250 IFC$=NT$(I)THENF=FR(I):I=12
260 NEXT:F=F/(2^(7-OC))
270 HF%=F/256:LF%=F-256*HF%
280 POKEBASE+C,HF%:C=C+1:POKEBASE+C,LF%:C=C+1:PRINT"-";:GOTO190
290 FORI=1TOVAL(C$)-1
300 POKEBASE+C,HF%:C=C+1:POKEBASE+C,LF%:C=C+1:PRINT"-";:NEXT:GOTO190
310 H(T)=C:T=T+1:POKEBASE+C,255:PRINT
320 IF(BASE+C)>=(BASE+2048)THENPRINT"ERROR:[146] OUT OF MEMORY":END
330 IFT=2THENBASE=BASE+2048:GOTO180
340 IFH(1)<>H(2)THENPRINT"ERROR:[146] NUMBER OF NOTES DO NOT MATCH":END
350 POKE704,A:POKE709,B:POKE762,TEMPO
360 POKE692,A+4:POKE753,A+4:POKE688,WA:POKE749,WA+1:REM SET WAVEFORM A
370 POKE695,B+4:POKE756,B+4:POKE690,WB:POKE751,WB+1:REM SET WAVEFORM B
380 POKES+A+5,AD(1):POKES+A+6,SR(1):POKES+B+5,AD(2):POKES+B+6,SR(2)
390 POKES+A+2,PL(1):POKES+A+3,PH(1):POKES+B+2,PL(2):POKES+B+3,PH(2)
400 PRINT"[147][197]NTER:  [158]SYS36818   TO TURN MUSIC"
410 PRINT"ON AND OFF.":END
500 END
1005 DATA C,34334,C#,36376, D,38539
1010 DATA D#,40830, E,43258, F,45830
1020 DATA F#,48556,G,51443,G#,54502
1030 DATA A,57743,A#,61176, B,64814
2000 REM  PUT NOTES HERE FOR VOICE 1
2010 DATA A,B,C,D,E,F,G,F,E,D,C,B,A
4999 DATA END
5000 REM  PUT NOTES HERE FOR VOICE 2
5010 DATA G,F,E,D,C,B,A,B,C,D,E,F,G
7999 DATA END
9000 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
9010 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
9020 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
9030 PRINT"[159]          [204][207][193][196][211][212][193][210] [208]RESENTS:"
9040 PRINT"[158]            [201]NTER [205]ELODY"
9050 PRINT"         BY [200]ENRIK [205]ARKARIAN"
9055 PRINT"          ([195])OPYRIGHT 1987"
9060 PRINT"[159]       [208]RESS [211][208][193][195][197] TO CONTINUE.":POKE198,.
9070 GETA$:IFA$<>" "THEN9070
9080 RETURN
40000 :
40001 :
50000 PRINT:PRINT"[154] [193]RE YOU SURE YOU WANT TO QUIT?  ([217][154]/[206][154])"
50010 GOSUB20:IFA$<>"Y"ANDA$<>"N"ANDA$<>"[217]"ANDA$<>"[206]"THEN50010
50015 IFA$="[206]"THENA$="N"
50020 IFA$="N"THENPRINT"[145]                                       [145][145][145][145][145]":RETURN
50030 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
50040 PRINT"[147]";:IFER<>63THENEND
50050 LOAD"HELLO CONNECT",8